home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / misc / megabook / storage / sendemail / yam2.mbrx < prev    next >
Text File  |  1998-12-12  |  821b  |  41 lines
  1. /*
  2. ** YAM 2 SendEMail Script v1.0 by Steve Clack (for MegaBook 4+)
  3. **
  4. ** ©1998 Liquid Software Design
  5. **
  6. ** steeevc@ndirect.co.uk - http://www.ndirect.co.uk/~mattw/steve
  7. ** 
  8. ** This is the script run when the Send EMail option is selected from the
  9. ** Extras menu.
  10. */
  11.  
  12. /*
  13. This is the path and executable for YAM, *should* be the same on every
  14. machine because it needs the assign, but if you have renamed the YAM
  15. executable then change it on the next line.
  16. */
  17.  
  18. YAMPATH = "YAM:YAM"
  19.  
  20. parse arg Address
  21.  
  22. /* Check if YAM is running, if not then run it */
  23.  
  24. if ~show('P', 'YAM') then do
  25.      address command
  26.      'Run >nil: ' YAMPATH
  27.  
  28.      /* Wait for the ARexx port to open */
  29.  
  30.      do 5 while ~show('P', 'YAM')
  31.           'Sys:rexxc/waitforport YAM'
  32.      end
  33. end
  34.  
  35. address 'YAM'
  36. options results
  37.  
  38. MAILWRITE
  39. WRITETO '"'Address'"'
  40.  
  41.